home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_B.d64 / > micro-player < (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  872b  |  26 lines
  1. 1 goto 20
  2. 2 poke780,.:poke781,.:poke782,.:sys4096
  3. 3 sys 4099:fori=0to3:next:on peek(653) goto 4,4,2,4,4,4,5
  4. 4 goto 3
  5. 5 print"":print chr$(147)
  6. 6 poke780,.:poke781,.:poke782,.:sys4096:end
  7. 20 rem
  8. 21 poke 53280,.:poke53281,.
  9. 22 poke780,.:poke 781,.:poke782,.
  10. 23 print"[147][155]          [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  11. 24 print"          [152] > [205]icro - [208]layer < "
  12. 25 print"                              "
  13. 26 print"              by f.b.[211]oft.    "
  14. 27 print"[151]          [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  15. 28 if peek(4096)=76 or peek(4099)=76 then 38
  16. 30 print"[155][168][168][168][168][168][168][168][168][168][168][146] [198]atal error occured[155] [168][168][168][168][168][168][168][168][168][146]";
  17. 31 print"          - [206]o [211]ound detected -[155]":end
  18. 38 print"[155][168][168][168][168][168][168][168][168][168][168][146] [211]hort instructions[155] [168][168][168][168][168][168][168][168][168][168][146]"
  19. 39 print"    [175][175][175][175]     [175][175][175][175][175][175][175]"
  20. 40 print"[213]se [152]([195]=)[146] and [152]([211][200][201][198][212])[146] to restart playing"
  21. 41 print"[151]    [183][183][183][183]     [183][183][183][183][183][183][183]"
  22. 42 print"[155]     [175][175][175][175]  [175][175][175][175][175][175][175]     [175][175][175][175][175][175]"
  23. 43 print"  or [152]([195]=)[146], [152]([211][200][201][198][212])[146] and [152]([195][212][210][204])[146] to stop."
  24. 44 print"[151]     [183][183][183][183]  [183][183][183][183][183][183][183]     [183][183][183][183][183][183]"
  25. 45 goto 2
  26.